home *** CD-ROM | disk | FTP | other *** search
/ IRIX 6.2 Development Libraries / SGI IRIX 6.2 Development Libraries.iso / dist / complib.idb / usr / share / catman / p_man / cat3 / complib / DPTSL.z / DPTSL
Text File  |  1996-03-14  |  1KB  |  67 lines
  1.  
  2.  
  3.  
  4. DDDDPPPPTTTTSSSSLLLL((((3333FFFF))))                                                            DDDDPPPPTTTTSSSSLLLL((((3333FFFF))))
  5.  
  6.  
  7.  
  8. NNNNAAAAMMMMEEEE
  9.      DPTSL   - DPTSL, given a positive definite symmetric tridiagonal matrix
  10.      and a right hand side, will find the solution.
  11.  
  12.  
  13. SSSSYYYYNNNNOOOOPPPPSSSSYYYYSSSS
  14.       SUBROUTINE DPTSL(N,D,E,B)
  15.  
  16. DDDDEEEESSSSCCCCRRRRIIIIPPPPTTTTIIIIOOOONNNN
  17.      On Entry
  18.  
  19.      NNNN INTEGER
  20.         is the order of the tridiagonal matrix.
  21.  
  22.      DDDD DOUBLE PRECISION(N)
  23.         is the diagonal of the tridiagonal matrix.
  24.         On output D is destroyed.
  25.  
  26.      EEEE DOUBLE PRECISION(N)
  27.         is the offdiagonal of the tridiagonal matrix.
  28.         E(1) through E(N-1) should contain the
  29.         offdiagonal.
  30.  
  31.      BBBB DOUBLE PRECISION(N)
  32.         is the right hand side vector.  On Return
  33.  
  34.      BBBB contains the solution. LINPACK.  This version dated 08/14/78 .  Jack
  35.      Dongarra, Argonne National Laboratory.  No externals Fortran MOD
  36.  
  37.  
  38.  
  39.  
  40.  
  41.  
  42.  
  43.  
  44.  
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.                                                                         PPPPaaaaggggeeee 1111
  64.  
  65.  
  66.  
  67.